home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / pretty2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  3.5 KB  |  217 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "pretty.h"
  9. void r24set_all_with(T24 C,T0* a1,int a2){
  10. int _i=0;
  11. _i=a2;
  12. while (!((_i)<(0))) {
  13. (C)[_i]=(a1);
  14. _i=(_i)-(1);
  15. }
  16. }
  17. void r24copy_from(T24 C,T24 a1,int a2){
  18. int _i=0;
  19. _i=a2;
  20. while (!((_i)<(0))) {
  21. (C)[_i]=((a1)[_i]);
  22. _i=(_i)-(1);
  23. }
  24. }
  25. T24 r24realloc(T24 C,int a1,int a2){
  26. T24 R=NULL;
  27. R=calloc(a2,sizeof(T0*));
  28. r24copy_from(R,C,(a1)-(1));
  29. return R;
  30. }
  31. void r533copy_from(T533 C,T533 a1,int a2){
  32. int _i=0;
  33. _i=a2;
  34. while (!((_i)<(0))) {
  35. (C)[_i]=((a1)[_i]);
  36. _i=(_i)-(1);
  37. }
  38. }
  39. T533 r533realloc(T533 C,int a1,int a2){
  40. T533 R=NULL;
  41. R=calloc(a2,sizeof(T0*));
  42. r533copy_from(R,C,(a1)-(1));
  43. return R;
  44. }
  45. void r778set_all_with(T778 C,T0* a1,int a2){
  46. int _i=0;
  47. _i=a2;
  48. while (!((_i)<(0))) {
  49. (C)[_i]=(a1);
  50. _i=(_i)-(1);
  51. }
  52. }
  53. void r51set_all_with(T51 C,T0* a1,int a2){
  54. int _i=0;
  55. _i=a2;
  56. while (!((_i)<(0))) {
  57. (C)[_i]=(a1);
  58. _i=(_i)-(1);
  59. }
  60. }
  61. int r51fast_index_of(T51 C,T0* a1,int a2){
  62. int R=0;
  63. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  64. R=(R)+(1);
  65. }
  66. return R;
  67. }
  68. void r51copy_from(T51 C,T51 a1,int a2){
  69. int _i=0;
  70. _i=a2;
  71. while (!((_i)<(0))) {
  72. (C)[_i]=((a1)[_i]);
  73. _i=(_i)-(1);
  74. }
  75. }
  76. T51 r51realloc(T51 C,int a1,int a2){
  77. T51 R=NULL;
  78. R=calloc(a2,sizeof(T0*));
  79. r51copy_from(R,C,(a1)-(1));
  80. return R;
  81. }
  82. int r9hashcode(T9 C,int a1){
  83. int R=0;
  84. int _i3=0;
  85. int _i2=0;
  86. int _i1=0;
  87. _i2=a1;
  88. _i3=(a1)/(2);
  89. /*IF*/if ((_i3)>(6)) {
  90. _i3=6;
  91. }
  92. /*FI*/while (!((_i3)==(0))) {
  93. R=(R)+(((unsigned char)(C)[_i1]));
  94. R=(R)+((((unsigned char)(C)[_i2]))*(_i2));
  95. _i1=(_i1)+(1);
  96. _i2=(_i2)-(1);
  97. _i3=(_i3)-(1);
  98. }
  99. /*IF*/if ((R)<(0)) {
  100. R=-(R);
  101. }
  102. /*FI*/return R;
  103. }
  104. void r9set_all_with(T9 C,char a1,int a2){
  105. int _i=0;
  106. _i=a2;
  107. while (!((_i)<(0))) {
  108. (C)[_i]=(a1);
  109. _i=(_i)-(1);
  110. }
  111. }
  112. int r9fast_memcmp(T9 C,T9 a1,int a2){
  113. int R=0;
  114. int _i=0;
  115. R=((C)[0])==((a1)[0]);
  116. _i=(a2)-(1);
  117. while (!(((_i)==(0))||(!(R)))) {
  118. R=((C)[_i])==((a1)[_i]);
  119. _i=(_i)-(1);
  120. }
  121. return R;
  122. }
  123. int r9fast_index_of(T9 C,char a1,int a2){
  124. int R=0;
  125. while (!(((R)>(a2))||((a1)==((C)[R])))) {
  126. R=(R)+(1);
  127. }
  128. return R;
  129. }
  130. void r9copy_from(T9 C,T9 a1,int a2){
  131. int _i=0;
  132. _i=a2;
  133. while (!((_i)<(0))) {
  134. (C)[_i]=((a1)[_i]);
  135. _i=(_i)-(1);
  136. }
  137. }
  138. T9 r9realloc(T9 C,int a1,int a2){
  139. T9 R=NULL;
  140. R=calloc(a2,sizeof(char));
  141. r9copy_from(R,C,(a1)-(1));
  142. return R;
  143. }
  144. void r36copy_from(T36 C,T36 a1,int a2){
  145. int _i=0;
  146. _i=a2;
  147. while (!((_i)<(0))) {
  148. (C)[_i]=((a1)[_i]);
  149. _i=(_i)-(1);
  150. }
  151. }
  152. T36 r36realloc(T36 C,int a1,int a2){
  153. T36 R=NULL;
  154. R=calloc(a2,sizeof(T0*));
  155. r36copy_from(R,C,(a1)-(1));
  156. return R;
  157. }
  158. void r392set_all_with(T392 C,T0* a1,int a2){
  159. int _i=0;
  160. _i=a2;
  161. while (!((_i)<(0))) {
  162. (C)[_i]=(a1);
  163. _i=(_i)-(1);
  164. }
  165. }
  166. void r392copy_from(T392 C,T392 a1,int a2){
  167. int _i=0;
  168. _i=a2;
  169. while (!((_i)<(0))) {
  170. (C)[_i]=((a1)[_i]);
  171. _i=(_i)-(1);
  172. }
  173. }
  174. T392 r392realloc(T392 C,int a1,int a2){
  175. T392 R=NULL;
  176. R=calloc(a2,sizeof(T0*));
  177. r392copy_from(R,C,(a1)-(1));
  178. return R;
  179. }
  180. void r770copy_from(T770 C,T770 a1,int a2){
  181. int _i=0;
  182. _i=a2;
  183. while (!((_i)<(0))) {
  184. (C)[_i]=((a1)[_i]);
  185. _i=(_i)-(1);
  186. }
  187. }
  188. T770 r770realloc(T770 C,int a1,int a2){
  189. T770 R=NULL;
  190. R=calloc(a2,sizeof(T0*));
  191. r770copy_from(R,C,(a1)-(1));
  192. return R;
  193. }
  194. void r100copy_from(T100 C,T100 a1,int a2){
  195. int _i=0;
  196. _i=a2;
  197. while (!((_i)<(0))) {
  198. (C)[_i]=((a1)[_i]);
  199. _i=(_i)-(1);
  200. }
  201. }
  202. T100 r100realloc(T100 C,int a1,int a2){
  203. T100 R=NULL;
  204. R=calloc(a2,sizeof(T0*));
  205. r100copy_from(R,C,(a1)-(1));
  206. return R;
  207. }
  208. void r567set_all_with(T567 C,int a1,int a2){
  209. int _i=0;
  210. _i=a2;
  211. while (!((_i)<(0))) {
  212. (C)[_i]=(a1);
  213. _i=(_i)-(1);
  214. }
  215. }
  216.  
  217.